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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
THIS SOFTWARE IS FURNISHED epee A LICENSE AND MAY BE USED AND corres 
ONLY IN ACCO = NCE WITH THE TERMS OF SUCH Tt AND WITH THE 
CLUSION OF THE ABOVE Sg lth NOTICE. THIS SOFTWARE OR ANY OTHER 


IN 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SCFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

ITY FOR THE USE OR RELIABILITY OF ITS 


DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 
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This module performs the SMODIFY function. 
; Environment: 

0000 Star processor running Starlet exec. 

444 : ; Author: L. F. Laverdure Creation Date: 21-JUN-1977 

444 ; ; Modified By: 

0000 v03-002 RASO120 n Schaefer 25-Jan-1983 

it Add echo SYSSINPUT to SYSSOUTPUT modify function. 

0000 v03-001 KBT0186 Keith B. Thompson 23-Aug-1982 

448 Reorganize ae and rename entry point to single ‘$* 

0000 v02-005 RASO018 on Schaefer 9-Aug~1981 

4 Fix broken ASSUME caused by stream files. 
| 

$000 v02-004 MCNO001 Maria del C. 29-Jul-1981 

444 Rename entry point to RMS$$ o sussert Long branches. | 
} 

aia v02-003 REFORMAT K. E. Kinnear 3i-Jui = 80 9:46 

0000 s-- | 

0000 
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Vor eooe RMSSMODIFY = SMODIFY ROUTINE -SEP-1984 95:53:99 LRMS. SRCTRMSOMODEY MAR: 1 ° 3) 
33 é -SBTTL RMSSMODIFY = SMODIFY ROUTINE 
eg 
3 ; ; RMSSMODIFY == Modify Routine. 
000 9 : This routine performs the $modify processing. 
000 90 ; It has one function: 
000 91; To provide an ‘escape’ mechanism to perform non-standard 
6909 35 3 rms functions. 
000 94 ; The functions cyrrentty implemented are: 
444 95 ; - To rewrite modified file attributes. 
8000 39 3 2. To enable/disable echoing of SYS$INPUT to SYSSOUTPUT. 
0000 98 ; Calling Sequence: 
0000 99 ; 
0000 100 ; Entered from exec as a result of user’s calling SYSSMODIFY 
44 19) 3 (e.g., by using the $modify macro). 
0000 198 3; Input Parameters: 
0000 104 ; 
0000 105; AP user's argument List addr 
0000 106 ; 
0000 107 ; Implicit Inputs: 
0000 108; ; ; 
0000 109; The contents of the fab and possible related user interface 
0000 110; ocks. 
0000 111; The esc bit is set in fop indicating that the caller desires 
0000 112; to execute one of the ‘escape sequences’, otherwise known as 
0000 113; "back doors’ or ‘kludges’, that is, ways of tricking rms into | 
0000 114; hedge that the situation is other than rms's current view of it. 
0000 115 ; These will, hopefully, remain few in number. Implementing these 
0000 116 ; as a service is meceqsery due to the requirement for exec mode 
0000 117 ; privileges and additionally gives us a handle on the extent of the 
0000 118; cancer. Improper use of an escape sequence can blow rms out of the 
0000 119; water. 
0000 120; 
0000 121 ; Output Parameters: 
0000 \¢¢ $ 
0000 123; RO status code 
0000 124; R1 destroyed 
0000 125; sob 
44 1$8 ; Implicit Outputs: 
0000 128 ; The ifab and all related internal rms structures are modified 
0000 129; as aor the requrements of the operation. 
494 ; 9 3 FABSL_STS and FABSL_STV 
464 ii : A completion ast is queued if so specified by the user. 
0000 134 ; Completion Codes: 
0000 135; . ; 
O80 : § : Standard rms (see functional spec for List). 
G09 ! 3 ; Side Effects: 
00 140; Dependent upon the type of modify. 
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141 ; 
146 i-- 
14 
144 SENTRY RMSSMODIFY 
FFFD’ 30 145 BSBW RMS$F SET ; do common setup 
148 : note: does not return on error 
0 14 RMSERR ENV 3; assume failure 
0 148 
00 149 ; 
4 129 ; Check for modify of ‘escape’ type and branch if bit not set. 
008 152 ° 
09 68 3B EI $00 138 BBC #FABSV_ESC+FOP,(R8),MODXIT ; branch if not ‘escape’ 
000c§ 154 CASE TYPE=W, ; low word of context field 
000c 155 LIMIT =#RMESC SETREM,~ 
000Cc 156 SRC=FABSL_CTR(RB), 
oooc§ 86©:157 Sitti 
Oooc§ 158 <SETRFM,=- ; RMESC_SETR 
000C 159 PPFECHO> : RMESC— _PP FECHO 
0015 160 
FFE8" 31 0015 161 MODXIT: BRW RMSEXRMS 
0018 162 
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"Escape type one - set rfm 
Inputs: 
rfm,mrs, and fsz (if vfc) 
Outputs: 
Related ifab fields are changed to values specified by inputs. 
Notes: 


User is responsible for saving the previous contents of the 
rfm, mrs, and fsz fields if needed for later restore. 


2. If the file is accessed for put, final attributes written 
to the file on close will be those currently in effect. 


3. There are no default values for any of the input fields. 


4. If setting rfm to udf and not block i/o accessed, results 
are unpredictable. 


5. If setting rfm to fix and mrs is 0, an error is generated 
but further rms calls will produce unpredictable results. 
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SETRFM: 
RMSERR REM 3; anticipate problems 
06 FAS 91 CMPB FASSB_RFM(R8) ,AFABSC_MAXRFM; within range? 
F2 1A BGTRU MODXIT 3 branch if not 
03 FAS 91 CMPB —s- FABSB_RFM(R8) ,#FABSC_VFC 
05 12 BNEQ ;_ branch if not vfc format 
5F AQ «63F AB O90 MOVB #FABSB_FSZ(R8),IFBSB_FSZ(R9); set fsz 
50 a9 «oF AB O90 10$:  MOVB FABSBIRFM(R8).IFBSB-RFMORG(RO); set rfm 
60 AI 36 A8 B0 MOVW FABSW_MRS(R8), IFBSW MRS(R9); set mrs 
01 iF AB 91 CMPB =—- FABSB_RFM(R8) ,#FABSC_FIX; fixed rfm? 
mts NEQ 20$ ; branch if not 
RMSERR MRS ; anticipate problem 
52 09 36 AB 80 MOVW  FABSW_MRS(RB),IFBSW_LRL(R9); set rl 
cB 1 048 BEQL MODXIT ; branch if zero (error) 
04A 20$: RMSSUC 
C6 11 004D BRB MODXIT 
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Escape type two - enable/disable echo of SYSSINPUT to SYSSOUTPUT 
Inputs: 
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ctx 
Outputs: 

IFBSW_ECHO_ISI is changed to value specified. 
Notes: 

1. FAB must describe SYSS$INPUT. 

2. caller must not be user-mode. 
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PPFECHO: 
BBC eyreey PPF_INPUT,(R9) ,MODXIT ; not SYSSINPUT 
CMPB R7,#PSC$C_OSER 3 user-mode? 
BEQL MODXIT ; that's a no-no 
MOVW FABSL_CTX+2(R8),- 
IFBSW_ECHO_ISI(R9) 3; save stream's ISI 
RMSSUC 
BRB MODXIT 
~END 
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Syabol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 
Cross-reference output 
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Allocation PSECT No. Attributes 


00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS 
00000062 (¢ 98.) O01 ¢ 1.) PIC USR CON REL 
00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS 
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Page faults CPU Time Elapsed Time 
139 60; if 0:74 0:00;08-80 

237 0:00:05.93 0:00:15.84 

9 0:00:00.66 :00:00.97 

5 :00:01.21 :00:03.14 

5 :00:00.05 :00: #8 

1 : a 3 :00:00.11 

0 : " :00:00.00 
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| RAS FY MODIFY FUNCTION i P=-1984 91:59:08 
VAK-11 Macro Run Statistics -SEP-1984 16:25:10 
Assembler run totals 473 00:00:08.72 00:00:27.79 


{he york ing set Limit was 1350 pages. 
32549 bytes _(64 pages) of virtual memory were used to buffer the intermediate code. 
There were 30 pages of symbol table space allocated to hold 620 non-local - 4 local symbols. 
¢ 9 source Lines were read in Pass 1, producing 1 object records in Pass 2. 
pages of virtual memory were used to define 18 macros. 
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Macro library statistics ! 
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Macro Library name Macros defined 
-$255S$0UA28: (RMS .OBJJRMS.MLB; 1 3 
_$255$0UA28:(SYS.O0BJJLIB.MLB; 1 1 
$255$DUA28: (CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 14 


739 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
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